home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / tests.sit / tests / fncs1.icn < prev    next >
Encoding:
Text File  |  1992-12-08  |  2.4 KB  |  73 lines  |  [TEXT/????]
  1. record array(a,b,c,d,e,f,g)
  2. global F, f
  3. global w, t
  4.  
  5. procedure main()
  6.    q1()
  7.    q2()
  8.    q3()
  9.    q4()
  10.    q5()
  11. end
  12.  
  13. procedure q1()
  14.    write(" ----> ",image() | "none")
  15.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  16.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  17.    write("close(f) ----> ",image(close(f)) | "none")
  18.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  19.    write("every write(reverse(!F)) ----> ",image(every write(reverse(!F))) | "none")
  20.    write("close(F) ----> ",image(close(F)) | "none")
  21.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  22.    write("every write(map(!F)) ----> ",image(every write(map(!F))) | "none")
  23.    write("close(F) ----> ",image(close(F)) | "none")
  24.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  25. end
  26.  
  27. procedure q2()
  28.    write("every write(map(!F,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!F,&cset || "aeiou",&cset || "-----"))) | "none")
  29.    write("close(F) ----> ",image(close(F)) | "none")
  30.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  31.    write("every write(map(!F,&cset || \"     \",&cset || \"aeiou\")) ----> ",image(every write(map(!F,&cset || "     ",&cset || "aeiou"))) | "none")
  32.    write("close(F) ----> ",image(close(F)) | "none")
  33.    write("f := open(\"gc1.icn\") ----> ",image(f := open("gc1.icn")) | "none")
  34.    write("while writes(reads(f)) ----> ",image(while writes(reads(f))) | "none")
  35.    write("close(f) ----> ",image(close(f)) | "none")
  36.    write("f := open(\"gc1.icn\") ----> ",image(f := open("gc1.icn")) | "none")
  37.    write("while writes(reads(f,10)) ----> ",image(while writes(reads(f,10))) | "none")
  38.    write("f := open(\"gc1.icn\") ----> ",image(f := open("gc1.icn")) | "none")
  39. end
  40.  
  41. procedure q3()
  42.    write("while write(read(f)) ----> ",image(while write(read(f))) | "none")
  43.    write("close(f) ----> ",image(close(f)) | "none")
  44. end
  45.  
  46. procedure q4()
  47.    T := table()
  48.    L := list()
  49.    every T[1 to 20] := 1
  50.    every put (L, key(T))
  51.    every write (!sort(L))
  52. end
  53.  
  54. procedure q5()
  55.     every i := 1 to 25 do {
  56.     v := 0.25 * i
  57.     wf (v)
  58.     if (v <= 1.0) then
  59.         every wf ((acos | asin) (v))
  60.     else
  61.         every wf ("" | "")
  62.     every wf (atan(v) | atan(v,3))
  63.     every wf ((cos | sin | tan) (v))
  64.     every wf ((sqrt | exp | log) (v))
  65.     wf (log(v,3))
  66.     write ()
  67.     }
  68.     end
  69.  
  70. procedure wf (v)
  71.     writes(left(v,5)," ")
  72.     end
  73.